home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / RHP.PLP < prev    next >
Text File  |  1991-04-03  |  2KB  |  46 lines
  1. /* auto pilot program ｢NEM 2.04｣ 1991.4.01 By GOOSE(MAF00070) */
  2. /* %Rhp { */
  3. /*  [LOGPATH,HP,DATE] */
  4. /* Rhp:HPの未読をダウンする｡ */
  5.   %onehp {
  6.     [ONEDATA]
  7.     %HPID @head(ONEDATA,{:});
  8.     %HPPASSWD @body(ONEDATA,{:},{:});
  9.     %HPNAME @tail(ONEDATA,{:});
  10.     %FILE LOGPATH|{\}|HPNAME|{.}|DATE;
  11.     case(DEBUG,{Yes},{display(HPPASSWD)});
  12.     type({GO HP\n});wait(ABORTTIME,{Abort},{\n＞},);
  13.     type({1\n});
  14.     wait(ABORTTIME,{Abort},{のHP)\n：},);type(HPID|{\n});
  15.     case(UID<>HPID,
  16.       {Yes},{wait(ABORTTIME,{Abort},{ワード\n：},);type(HPPASSWD|{\n})});
  17.     wait(ABORTTIME,{Abort},{\nHP>},);
  18.     %temp CCSLINE|DAYTIME;;
  19.     write(FILE,temp);
  20.     type({READ NEW\n});
  21.     receive(FILE);
  22.     loop({wait({600},{Abort},
  23.       {続き（改行のみ：次頁）\n＞},{type({\n});im({Yes})},
  24.       {more>},{type({\n});im({Yes})},
  25.       {\nHP>},
  26.         {stoprec;
  27.          case(LOGADD={Yes},{Yes},{Logadd(LOGPATH,HPNAME,DATE)});
  28.          im({No})},
  29.       {\n◆指定日付以降のメッセージはありません◆\n},
  30.         {stoprec;dispoff({Yes});%temp {DEL }|FILE;command(temp);dispoff({No});
  31.          wait(ABORTTIME,{Abort},{\nHP>},);
  32.          im({No})})
  33.     })
  34.   };
  35.   var ALLHP[80];ALLHP:=HP;
  36.   type({TIME\n});
  37.   wait(ABORTTIME,{Abort},{\n  ご利用時間  },);
  38.   %DAYTIME @tail(@body(@laststr,,{\n  ご利用時間  }),{\n  })|{\n};
  39.   wait(ABORTTIME,{Abort},
  40.     {\n＞},,{\nMAIL>},,{\nHP>},,{\nFORUM>},,{\nBBS>},,{\nCCS(N)>},,{\nLIB>},);
  41.   loop({case(@head(ALLHP,{,})={No},
  42.     {Yes},{im({No})},
  43.     {No},{onehp(@head(ALLHP,{,}));ALLHP:=@body(ALLHP,{,});im({Yes})})}
  44.   )
  45. /* }; */
  46.